sub test()
    Dim regEx, m, ms
    
   
    Set regEx = CreateObject("vbscript.regexp")
     
    tt = "Shopping List"
    
     MsgBox Replace(tt, "o", "i")
    
    
    Set regEx = Nothing
    Set ms = Nothing
	
end sub